Thema Datum  Von Nutzer Rating
Antwort
17.02.2016 14:38:28 Benedikt
Solved
Blau VBA -> Word, Export eines Beriches
 17.02.2016 19:29:41 Gast79950
NotSolved
18.02.2016 08:52:35 Benedikt
NotSolved

Ansicht des Beitrags:
Von:
Gast79950		 Datum:
17.02.2016 19:29:41		 Views:
684		 Rating:
     
Antwort:
  Ja
Thema:
VBA -> Word, Export eines Beriches

Hallo Benedict!
ICh glaube mit dem verschieben deiner Selection passt was nicht. ICh würde das so wie unten lösen. VG

Private Sub CommandButton1_Click()
On Error GoTo Fehler 'setzten des Wordlibrary
Dim ref
On Error Resume Next
Set ref = Application.VBE.ActiveVBProject.References.AddFromGuid("{00020905-0000-0000-C000-000000000046}", 0, 0) 'öffnen des Zieldokuments in Microsoft Word
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
WordApp.Application.Documents.Open "C:\Desktop\Test.dot" 'Kopieren des Bereichs "A3:I85"
Worksheets(1).Range(Cells(3, 1), Cells(85, 9)).Copy 'Prüfung ob eine Textmarke existiert einfügen des kopierten Bereichs
If WordApp.activedocument.Bookmarks.Exists("I") Then
    Dim meinBM  'der Bookmark von dir

    Set meinBM = WordApp.activedocument.Bookmarks("I").Range
    meinBM.Paste

Else
    MsgBox "Die Textmarke [I] ist nicht vorhanden"
    Exit Sub
End If
WordApp.Application.Activate
Exit Sub
Fehler: MsgBox "Word Dokument wurde nicht gefunden!"
WordApp.Quit
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.02.2016 14:38:28 Benedikt
Solved
Blau VBA -> Word, Export eines Beriches
 17.02.2016 19:29:41 Gast79950
NotSolved
18.02.2016 08:52:35 Benedikt
NotSolved